Dynamic[{
g, TC,
Table[i-> ({#, MoveCount[i,#]}& /@ Images[i]), {i,n}],
Sum[Total[MoveCount[i,#]& /@ Images[i]], {i, n}]
}, UpdateInterval -> 1]